% Prints parameters

fprintf('======Parameters======\n\n')

fprintf('DEPOSITORS\n')
fprintf('gamma          = %6.3f\n',   gam)
fprintf('lambda         = %6.3f\n', lambda)
fprintf('pi             = %6.3f\n',   prob)
fprintf('y1, y2 (share) = %6.3f %6.3f\n',   y1, y2)
fprintf('muD, sigD      = %6.3f %6.3f\n',   muD, sigD)
fprintf('d_min, d_max   = %6.3f %6.3f\n\n',   d_min, d_max)
fprintf('R1             = %6.3f\n', R1)
fprintf('Minimum s_hat  = %6.3f \n\n', sqrt(R1))

fprintf('TAXPAYERS\n')
fprintf('kappa_1, kappa_2 = %6.3f %6.3f \n', kappa(1), kappa(2))
fprintf('Y1tau            = %6.3f \n\n', Y1tau)

fprintf('BANKS\n')
fprintf('chi_avg              = %6.3f\n',   chi_avg)
fprintf('chi_1, chi_2, chi_3  = %6.3f %6.3f %6.3f \n',   chi(1), chi(2), chi(3))
fprintf('s_min, s_max, s_mean = %6.3f %6.3f %6.3f \n', s_min, s_max, dist_s.mean)
fprintf('muS, sigS            = %6.3f %6.3f \n',   muS, sigS)
fprintf('phi(persistence)     = %6.3f\n\n',   phi)

fprintf('Percentiles | Deposits \n')
fprintf('%8.2f    %8.0f k\n', [percentiles, D0i_grid*100]')

fprintf('Median of deposit distribution is %6.0f k \n', dist_d.median*100)
fprintf('Mean   of deposit distribution is %6.0f k \n', dist_d.mean*100)
fprintf('Length of delta_grid is %g \n\n', length(d_grid))